home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore 64 Scene Diskmags Assortment
/
Influx_03_1989-08-01_Influx_Staff.d64
/
influx reader
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
10KB
|
11 lines
1744 sys2051
61048 0(NULL)dimexp1cmd(NULL)
1712 exp"[157]3[202][208][237][169]o[133]-[169]<[133].l[173]%[254]o<[227]+ W[144]l W[176][169][208]. 4[201][240]I[208]" 4right$(NULL)I(NULL)(NULL) 4right$(NULL)I(NULL)new 4totheninput#stepinputnotfn(NULL)input(NULL)fn(NULL)input(NULL) {$7c}fn(NULL)input(NULL)fn(NULL)input(NULL) Wor9 Wornew 4new 4I@stop(NULL)thencloseinput#notinputspc(fn(NULL)Espc(input(NULL)fn(NULL)Etheninput(NULL)fn(NULL)(NULL)asc(NULL)asc(NULL) readl
887 or6stepinputnot Wornewstep close
900 4Einputspc(fnthenEinputthenstopexp Worstep
57296 step closenew(NULL)(NULL) Wor Wstep
48848 Wor 4I(NULL)>new 4(NULL)+step
64262 (NULL)*&thenmid$(NULL)(NULL)new{$60}close<,close{$7b}restoreDhclose
65188 (NULL)asc(NULL)asc(NULL)tan(NULL)(NULL)8*input(NULL)Hl<to(NULL)tan(NULL)(NULL)step7input(NULL)0(NULL)xl(NULL)(NULL)(NULL){$60}8fn(NULL)(NULL)notinput(NULL)orasc(NULL)tonot(NULL)fn(NULL)8(NULL)notinput(NULL)orasc(NULL)>(NULL)leton(NULL)print#(NULL)(NULL)str$step(NULL){$60}>(NULL)asc(NULL)asc(NULL)ascstep(NULL)exp<cmd(NULL)(NULL)(NULL)(NULL)(NULL)and(NULL)=asc(NULL)(NULL)(NULL)dimstepmid$contnewl
6144 stopnextsys 2072 mdgpacker